{\rtf1\ansi\ansicpg1252\cocoartf1138\cocoasubrtf510
{\fonttbl\f0\fnil\fcharset0 Monaco;}
{\colortbl;\red255\green255\blue255;\red0\green0\blue255;\red128\green0\blue128;}
\paperw11900\paperh16840\margl1440\margr1440\vieww10800\viewh8400\viewkind0
\pard\tx560\tx1120\tx1680\tx2240\tx2800\tx3360\tx3920\tx4480\tx5040\tx5600\tx6160\tx6720\pardirnatural

\f0\fs23\fsmilli11880 \cf2 library(lmtest)\
resettest(y1 ~ x , power=2, type="regressor")\
\
\
library(timeSeries)\
\
\
#to load file csv\
\cf3  \cf2 a <- read.csv(file = "quarterly-gross-national-product.csv", head=TRUE, sep=",")}